* lisp/info-xref.el (info-xref-docstrings): Also skip directories.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1912bf9ad0c461671238297e1ce29758974b1495..18ea8434f4c7977200e4b9293081f256a236fe7c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,7 @@
 2011-01-16  Glenn Morris  <rgm@gnu.org>
 
        * info-xref.el (info-xref-docstrings): Replace cl function.
+       Also skip directories.
 
 2011-01-16  Kevin Ryde  <user42@zip.com.au>
 

diff --git a/lisp/info-xref.el b/lisp/info-xref.el
index cdeba932eda7b2d1681700cfc1772a48e0f83ce9..e317b10bcd69654bea2da801a597bd8300db946e 100644 (file)
--- a/lisp/info-xref.el
+++ b/lisp/info-xref.el
@@ -493,6 +493,7 @@ the sources handy."
      (setq filename-list
            (dolist (file filename-list (nreverse newlist))
              (or (info-xref-lock-file-p file)
+                 (file-directory-p file)
                  (push file newlist))))
      (unless filename-list
        (error "No files: %S" pattern))